//Contents of "FullMaterialsLibrary.inc" aka the modified "SILKStxt.inc":
//
#macro Append_Material_To_ShortFile(TheMaterialName, TheShortFileName)
  #switch(1)
    #case(strcmp(TheMaterialName, "MTXXSILKAMBERGLOW"          )=0)#declare MSTR = "#declare MTXXSILKAMBERGLOW = material {texture{pigment{SILKAMBERGLOW}finish{FINSILK}normal{NORMSILK}scale 250}}; // // Amber glow "; #break
    #case(strcmp(TheMaterialName, "MTXXSILKAMETHYST"           )=0)#declare MSTR = "#declare MTXXSILKAMETHYST = material {texture{pigment{SILKAMETHYST}finish{FINSILK}normal{NORMSILK}scale 250}}; // Amethyst "; #break
    #case(strcmp(TheMaterialName, "MTXXSILKAMETHYSTDARK"       )=0)#declare MSTR = "#declare MTXXSILKAMETHYSTDARK = material {texture{pigment{SILKAMETHYSTDARK}finish{FINSILK}normal{NORMSILK}scale 250}}; // Amethyst dark "; #break
    #case(strcmp(TheMaterialName, "MTXXSILKAMETHYSTLIGHT"      )=0)#declare MSTR = "#declare MTXXSILKAMETHYSTLIGHT = material {texture{pigment{SILKAMETHYSTLIGHT}finish{FINSILK}normal{NORMSILK}scale 250}}; // Amethyst light "; #break
    #case(strcmp(TheMaterialName, "MTXXSILKAMETHYSTMEDIUM"     )=0)#declare MSTR = "#declare MTXXSILKAMETHYSTMEDIUM = material {texture{pigment{SILKAMETHYSTMEDIUM}finish{FINSILK}normal{NORMSILK}scale 250}}; // Amethyst medium "; #break
    #case(strcmp(TheMaterialName, "MTXXSILKAMETHYSTMEDIUMLIGHT")=0)#declare MSTR = "#declare MTXXSILKAMETHYSTMEDIUMLIGHT = material {texture{pigment{SILKAMETHYSTMEDIUMLIGHT}finish{FINSILK}normal{NORMSILK}scale 250}}; // Amethyst medium light "; #break
    #case(strcmp(TheMaterialName, "MTXXSILKANTIQUEBLUEDARK"    )=0)#declare MSTR = "#declare MTXXSILKANTIQUEBLUEDARK = material {texture{pigment{SILKANTIQUEBLUEDARK}finish{FINSILK}normal{NORMSILK}scale 250}}; // Antique blue dark "; #break
    #case(strcmp(TheMaterialName, "MTXXSILKANTIQUEBLUELIGHT"   )=0)#declare MSTR = "#declare MTXXSILKANTIQUEBLUELIGHT = material {texture{pigment{SILKANTIQUEBLUELIGHT}finish{FINSILK}normal{NORMSILK}scale 250}}; // Antique blue light "; #break
    #case(strcmp(TheMaterialName, "MTXXSILKANTIQUEBLUEMEDIUM"  )=0)#declare MSTR = "#declare MTXXSILKANTIQUEBLUEMEDIUM = material {texture{pigment{SILKANTIQUEBLUEMEDIUM}finish{FINSILK}normal{NORMSILK}scale 250}}; // Antique blue medium "; #break
  #end //end #switch(1)
  //
  #fopen  The_ShortFile TheShortFileName append
  #write  (The_ShortFile, MSTR)
  #write  (The_ShortFile, "\n\n\n\n")
  #fclose The_ShortFile
#end //end macro
//
// end file "FullMaterialsLibrary.inc"







//Contents of a file "Materials_And_Textures_Chooser.pov" or whatever, used to select textures, materials etc:
//
#include "FullMaterialsLibrary.inc" // aka the modified "SILKStxt.inc"
#declare A_FileName = "Short_List_Of_Materials.inc";
//
Append_Material_To_ShortFile( "MTXXSILKAMBERGLOW", A_FileName)
Append_Material_To_ShortFile( "MTXXSILKAMETHYSTDARK", A_FileName)
Append_Material_To_ShortFile( "MTXXSILKAMETHYSTMEDIUM", A_FileName)
